home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 3 / Amiga Tools 3.iso / maxon-demo / maxonmagic_2 / install-mm-hd < prev    next >
Text File  |  1995-09-13  |  11KB  |  346 lines
  1. ; $VER: MaxonMAGIC Install Version 1.1 (31.7.93)
  2. ; Script zum Installieren von MaxonMAGIC
  3. ; 
  4. ;============================
  5. ;=== Deutsche Erklärungen ===
  6. ;============================
  7. (set #introduction
  8. (cat "\nMit diesem Installationsprogramm können Sie\n\nMaxonMAGIC\n\n auf einer "
  9.      "Festplatte installieren. Die komplette Installation läuft nahezu vollständig "
  10.      "automatisch ab. "
  11.      "Drücken Sie \"Proceed\", um mit der Installation fortzufahren.\n"
  12.      "Drücken Sie \"Abbruch\", um die Installation abzubrechen."))
  13. (set #askdir-help
  14. (cat "\nWählen Sie zuerst die Partition Ihrer Festplatte aus, auf der "
  15.      "Sie gerne MaxonMAGIC installieren möchten. Danach klicken Sie "
  16.      "auf \"MAKE NEW DRAWER\" und geben hinter dem Doppelpunkt den "
  17.      "Namen des Verzeichnisses an (z.B. WORK:MMAGIC). Dann drücken Sie "
  18.      "auf \"PROCEED\" und das Programm beginnt mit der Arbeit.\n\n"
  19.      "Beschreibung der Schalter:\n\n"
  20.      "Der große \"Rollbereich\" in der Mitte des Fensters zeigt den "
  21.      "Inhalt der aktuellen Diskette oder des aktuellen Verzeichnisses. "
  22.      "Schubladen werden durch\ndie invertierten Buchstaben \"DRW\" vor "
  23.      "deren Namen gekennzeichnet. Der Name der Diskette oder des "
  24.      "Verzeichnisses, das dargestellt wird, erscheint darunter in einem "
  25.      "hervorgehobenen Kasten. Auf der rechten Seite des Inhaltsfeldes "
  26.      "befindete sich ein Schieber, mit dem man sich durch eine "
  27.      "Verzeichnis- liste bewegen kann, falls der sichtbare Platz nicht für "
  28.      "alle Einträge ausreicht.\n\n"
  29.      "Man kann das aktuelle Verzeichnis wechseln, indem auf den Namen "
  30.      "einer Schublade geklickt wird.\n\n"
  31.      "Mit dem Schalter \"Parent Drawer\" gelangt man wieder in das "
  32.      "übergeordnete Verzeichnis (von dem aus eine Schublade angeklickt "
  33.      "wurde.)\n\n"
  34.      "Der Schalter \"Show Drives\" zeigt alle am Amiga ange- schlossenen "
  35.      "Geräte (z.B. Disketten- oder Fest- platten-Laufwerke) an. Klicken "
  36.      "auf einen Namen, um sich den Inhalt des betreffenden Gerätes "
  37.      "anzusehen.\n\n"
  38.      "Über den Schalter \"Make New Drawer\" können Sie ein neues "
  39.      "Verzeichnis erzeugen. Diese neue Schublade\nwird in dem Verzeichnis "
  40.      "angelegt, das Sie soeben betrachten.\n\n"
  41.      "Mit dem Schalter \"Proceed\" erklären Sie sich mit dem eingestellten "
  42.      "Verzeichnis zufrieden und fahren mit der Installation fort.\n\n"
  43.      "Ein Klick auf den Schalter \"Abort Install\" bricht die Installation "
  44.      "an dieser Stelle ab. Es werden keine weiteren Änderungen mehr "
  45.      "vorgenommen.\n\n"
  46.      "\"Help...\" zeigt diesen Text."))
  47. (set #help-startup
  48. (cat "Die Datei \"user-startup\" befindet sich im Verzeichnis \"S:\". "
  49.      "In ihr befinden sich spezielle Kommandos, die einige Programme "
  50.      "bereits beim Systemstart ausführen.\n\n"
  51.      "Wenn Sie auf den Schalter \"Proceed\" klicken, so wird Ihre "
  52.      "\"user-startup\" automatisch um die angezeigten Zeilen ergänzt. "
  53.      "Wollen Sie jedoch diesen Teil überspringen, so klicken Sie auf "
  54.      "den Schalter \"Skip This Part\"\n\n"
  55.      "\"Abort\" bricht die Installation an dieser Stelle ab."))
  56. (set #help-delete
  57. (cat "Die Datei \"Assigns\" ist nur nötig, wenn Sie keine Änderungen in der "
  58.      "User-Startup bzw. Startup-Sequence vorgenommen haben.\n\n"
  59.      "Wenn Sie auf den Schalter \"Proceed\" klicken, so wird die Datei "
  60.      "\"Assigns\" gelöscht.\n\n"
  61.      "Wollen Sie jedoch diesen Teil überspringen, so klicken Sie auf "
  62.      "den Schalter \"Skip This Part\". Die Datei \"Assigns\" bleibt im "
  63.      "Installationsverzeichnis erhalten.\n\n"
  64.      "\"Abort\" bricht die Installation an dieser Stelle ab."))
  65. (set #startup-help
  66. (cat "Erklärung der Schalter:\n\n"
  67.      "\"Install for Real\"\n"
  68.      "Dies veranlaßt den Installer, die Installation tatsächlich vorzunehmen.\n\n"
  69.      "\"Pretend to Install\"\n"
  70.      "Hiermit führt der Installer alle Schritte der Installation durch. "
  71.      "Allerdings werden keine Änderungen an irgendwelchen Dateien vorgenommen. "
  72.      "Man kann diese Option dazu verwenden, um zu sehen, was der Installer tun "
  73.      "wird, bevor man die eigentliche Installation veranlaßt. In Verbindung "
  74.      "mit dem Schalter \"Log File\" darunter erhält man außerdem eine komplette "
  75.      "Liste über alle durchgeführten Aktionen.\n\n"
  76.      "\"Printer\"\n"
  77.      "Hiermit wird eine Liste aller Aktionen des Installers auf dem Drucker "
  78.      "ausgegeben.\n\n"
  79.      "\"Log File\"\n"
  80.      "Alle Aktionen des Installers werden in eine Protokolldatei geschrieben. Wenn "
  81.      "die Installation beendet ist, werden Sie über den Ort dieser Datei informiert. "
  82.      "Sie können diese Liste mit einem beliebigen Editor betrachten.\n\n"
  83.      "\"None\"\n"
  84.      "Ist dieser Schalter gedrückt, so wird keine Protokolldatei erzeugt.\n"))
  85. (set #no-inst
  86. (cat "\nDer Platz in dem von Ihnen gewählten Verzeichnis reicht nicht aus, um die "
  87.      "MaxonMAGIC-Dateien zu kopieren\n\n"
  88.      "!!! Die Installation wird abgebrochen !!!"))
  89.  
  90. (set #ERRORRAM (cat "Kann die notwendigen Dateien nicht in die Ram disk kopieren."))
  91.  
  92. (set #COPVERZ    (cat "\nIn welches Verzeichnis soll MaxonMAGIC\nkopiert werden?"))
  93.  
  94. (set #which-modules
  95. (cat "Welche Module sollen\ninstalliert werden?"))
  96.  
  97. (set #which-modules-help
  98. (cat "Sie können hier bestimmen, welche Effekte Sie installiert haben möchten. "
  99.       "Alle mit einem Häkchen markierten Effekte werden nach Anwahl von 'Proceed' "
  100.       "installiert." ))
  101.  
  102. (set #which-hardware
  103. (cat "Für welche Hardware sollen\ndie Module installiert werden?"))
  104.  
  105. (set #which-hardware-help
  106. (cat "Erklärung der Schalter:\n\n"
  107.       "\"OCS/ECS\"\n"
  108.       "Es werden alle Module installiert, die auf OCS/ECS-Rechnern lauffähig sind."
  109.       "(Amiga 500, 1000, 2000, 3000)\n\n"
  110.       "\"AA/Grafikkarten\"\n"
  111.       "Installiert nur die Module, die auf AA-Rechnern oder Rechnern mit "
  112.       "einer Grafikkarte lauffähig sind."
  113.       "(Amiga 1200, 4000 oder Amigas mit einer zusätzlichen Grafikkarte)\n\n"
  114.       "\"Alle\"\n"
  115.       "Installiert alle Module, sowohl die für OCS/ECS-, als auch die für AA-Rechner "
  116.       "bzw. Grafikkarten geeigneten." ))
  117.  
  118. (set #MAGICSIZE    1)
  119. (set #MaxonMSIZE  1)
  120.  
  121. (set @abort-button "Abbruch")
  122. (set @language "Deutsch")
  123.  
  124. (Procedure Inst_NormFiles
  125.     (if (< (getdiskspace @Dest) @Size)
  126.         (abort #no-inst))
  127.  
  128.     (set @anzeige (cat "Kopiere "@FName" aus "@SOURCE" \nnach "@Dest))
  129.     (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(choices @FName)(files)(infos)(dest @Dest)(confirm))
  130. )
  131.  
  132. (Procedure Inst_PatternFiles
  133.     (if (< (getdiskspace @Dest) @Size)
  134.         (abort #no-inst))
  135.  
  136.     (set @anzeige (cat "Kopiere "@FName" aus "@SOURCE" \nnach "@Dest))
  137.     (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(pattern @Pattern)(infos)(dest @Dest)(confirm))
  138. )
  139.  
  140. (Procedure Inst_LhaFiles
  141.     ;(set @In_File (tackon @Source @FName.lha))
  142.     (set @TMP (tackon "RAM:" @FName.lha))
  143.     (set @Dest_File (tackon @default-dest @Dest))
  144.     (if                                          ; Verzeichnis erzeugen
  145.         (= (exists @Dest_File) 0)
  146.         (makedir (@Dest_File)(infos))
  147.     )
  148.  
  149.     (if (< (getdiskspace @Dest_File) @Size)
  150.         (abort #no-inst))
  151.  
  152.     (copyfiles (prompt "")(help "")(source @Source)(choices @FName.lha)(dest "RAM:")(confirm))
  153.     (working @Working @Dest)
  154.     (run ("RAM:Lhx -E -N x %s \"%s/\"" @TMP @Dest_File))
  155.     (delete @TMP)
  156. )
  157.  
  158. (Procedure Inst_LhaFilesnew
  159.     ;(set @In_File (tackon @Source @FName.lha))
  160.     (set @TMP (tackon "RAM:" @FName.lha))
  161.     (set @Dest_File (tackon @default-dest @Dest))
  162.     (makedir (@Dest_File)(infos))
  163.  
  164.     (if (< (getdiskspace @Dest_File) @Size)
  165.         (abort #no-inst))
  166.  
  167.     (copyfiles (prompt "")(help "")(source @Source)(choices @FName.lha)(dest "RAM:")(confirm))
  168.     (working @Working @Dest)
  169.     (run ("RAM:Lhx -E -N x %s \"%s/\"" @TMP @Dest_File))
  170.     (delete @TMP)
  171. )
  172.  
  173.  
  174. (message #introduction)
  175. (welcome)
  176. (set old_level @user-level)
  177.  
  178. (complete 0)
  179.  
  180. (set @default-dest                           ; Verzeichnis aussuchen 
  181.     (askdir
  182.         (prompt #COPVERZ)
  183.         (help    #askdir-help)
  184.         (default "WORK:MMAGIC")
  185.     )
  186. )
  187.  
  188. (if                                          ; Verzeichnis erzeugen
  189.     (= (exists @default-dest) 0)
  190.     (makedir @default-dest)
  191. )
  192.  
  193.  
  194.  
  195.  
  196.  
  197. (complete 10)
  198.  
  199. (
  200.     (set @Source "")
  201.     (set @Dest @default-dest)
  202.    (set @Pattern "MM_Sounds")
  203.     (set @Size #MaxonMSIZE)
  204.     (Inst_PatternFiles)
  205. )
  206.  
  207. (complete 20)
  208.  
  209. (
  210.     (set @Source "")
  211.     (set @Dest @default-dest)
  212.    (set @Pattern "MM_SModule")
  213.     (set @Size #MAGICSIZE)
  214.     (Inst_PatternFiles)
  215. )
  216.  
  217. (
  218.     (set @Source "")
  219.     (set @Dest @default-dest)
  220.    (set @Pattern "MM_Effekte")
  221.     (set @Size #MAGICSIZE)
  222.     (Inst_PatternFiles)
  223. )
  224.  
  225. (
  226.     (set @Source "")
  227.     (set @Dest @default-dest)
  228.    (set @FName "Anleitung")
  229.     (set @Size #MAGICSIZE)
  230.     (Inst_NormFiles)
  231.  
  232. )
  233.  
  234.  
  235. (complete 40)
  236.  
  237. (
  238.     (set @Source "")
  239.     (set @Dest @default-dest)
  240.    (set @FName "MaxonMAGIC_Demo")
  241.     (set @Size #MAGICSIZE)
  242.     (Inst_NormFiles)
  243. )
  244.  
  245. (
  246.     (set @Source "")
  247.     (set @Dest @default-dest)
  248.    (set @FName "Inhalt")
  249.     (set @Size #MAGICSIZE)
  250.     (Inst_NormFiles)
  251.  
  252. )
  253.  
  254.  
  255. (complete 60)
  256.  
  257. (
  258.     (set @Source "")
  259.     (set @Dest @default-dest)
  260.    (set @FName "MM_Prefs")
  261.     (set @Size #MAGICSIZE)
  262.     (Inst_NormFiles)
  263.  
  264. )
  265.  
  266.  
  267. (
  268.     (set @Source "")
  269.     (set @Dest @default-dest)
  270.    (set @Pattern "MM_TC")
  271.     (set @Size #MAGICSIZE)
  272.     (Inst_PatternFiles)
  273. )
  274.  
  275.  
  276. (complete 70)
  277.  
  278. (copylib                                            ; RCT-LIB kopieren
  279.     (prompt "Die RCT-LIBRARY wird kopiert ...")
  280.     (help
  281.         "Die RCT-Library wird zum Erzeugen von Standard-Requestern "
  282.       "benötigt. Wenn Sie diese Bibliothek schon auf Ihrer Festplatte "
  283.       "installiert haben, dann ist hier eine neuere Version.\n\n"
  284.         @copyfiles-help
  285.     )
  286.     (source "libs/rct.library")
  287.     (dest "Libs:")
  288.     (confirm)
  289. )
  290.  
  291. (complete 90)
  292.  
  293.  
  294.  
  295. (set changechoice 1)
  296.  
  297. (set changechoice
  298.     (askchoice
  299.         (prompt "\nMöchten Sie MaxonMagic automatisch\nbeim Starten aktivieren?\n\nDabei wird die User-Startup verändert!")
  300.         (help @askchoice-help)
  301.         (choices "Ja" "Nein")
  302.         (default 0)
  303.     )
  304. )
  305.  
  306.  
  307. (set command1 "MaxonMAGIC_Demo")
  308.     
  309. (if (not changechoice)
  310.     (
  311.     ; ------- STARTUP ÄNDERN
  312.     
  313.     
  314.     (set command1 (tackon @default-dest "MaxonMAGIC_Demo"))
  315.     
  316.     (set command1.txt
  317.         (cat 
  318.              "\n\n\nDamit MaxonMAGIC nach jedem Neustart aktiv ist"
  319.           "muß eine Änderung an der User-Startup vorgenommen werden.\n\n"
  320.              command1
  321.         )
  322.     )
  323.     
  324.     (startup "MaxonMAGIC_Demo.app"
  325.         (prompt command1.txt)
  326.         (help #help-startup)
  327.         (command command1)
  328.     )))
  329.  
  330. (complete 100)
  331.  
  332. ; ------- FERTIG
  333.  
  334. (message (cat 
  335.     "Installation von MaxonMAGIC beendet.\n"
  336.    "Falls die Zeile:\n" command1 "\nnicht in Ihre Startup-Sequence bzw. "
  337.    "User-Startup eingefügt wurde, dann holen Sie dies bitte nach.\n\n"
  338.    "Entfernen Sie nun die Diskette aus Ihrem Laufwerk und starten Sie "
  339.    "MaxonMAGIC.\n\nViel Erfolg!")
  340. )
  341.  
  342. (exit)
  343.  
  344. ;=============================================================================
  345.  
  346.